home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / merlin / rexx / miamionline.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-12  |  523b  |  36 lines
  1. /* Script to launch miami and put it online */
  2.  
  3. options results
  4. signal on break_c
  5.  
  6. /* start Miami */
  7.  
  8. if ~show( ports, "MIAMI.1") then do
  9.   say "Launching Miami..."
  10.   address command 'run <>nil:' 'miami:miami'
  11.   address command 'waitforport MIAMI.1'
  12. end
  13.  
  14. /* Connect to Internet */
  15.  
  16. address 'MIAMI.1'
  17.   isonline
  18.   if rc=0 then do
  19.     say "Connecting to Internet provider..."
  20.     online
  21.     isonline
  22.     if rc=0 then goto break_c
  23.   end
  24.  
  25. exit
  26.  
  27.  
  28. break_c:
  29.  
  30. say ""
  31. say "Abort!!! Closing Connection.."
  32.  
  33. address Miami.1
  34.   offline
  35.  
  36.